Public Class frmBudgetsEdit

    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents tbTotal As System.Windows.Forms.TextBox
    Friend WithEvents tbDec As System.Windows.Forms.TextBox
    Friend WithEvents tbNov As System.Windows.Forms.TextBox
    Friend WithEvents tbOct As System.Windows.Forms.TextBox
    Friend WithEvents tbSep As System.Windows.Forms.TextBox
    Friend WithEvents tbAug As System.Windows.Forms.TextBox
    Friend WithEvents tbJul As System.Windows.Forms.TextBox
    Friend WithEvents tbDpt As System.Windows.Forms.TextBox
    Friend WithEvents tbNum As System.Windows.Forms.TextBox
    Friend WithEvents tbJun As System.Windows.Forms.TextBox
    Friend WithEvents tbMay As System.Windows.Forms.TextBox
    Friend WithEvents tbApr As System.Windows.Forms.TextBox
    Friend WithEvents tbMar As System.Windows.Forms.TextBox
    Friend WithEvents tbFeb As System.Windows.Forms.TextBox
    Friend WithEvents tbJan As System.Windows.Forms.TextBox
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents tbYear As System.Windows.Forms.TextBox
    Friend WithEvents cmdSave As DevComponents.DotNetBar.ButtonX
    Friend WithEvents cmdExit As DevComponents.DotNetBar.ButtonX
    Friend WithEvents GroupPanel1 As DevComponents.DotNetBar.Controls.GroupPanel
    Friend WithEvents tbDesc As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.tbTotal = New System.Windows.Forms.TextBox()
        Me.tbDec = New System.Windows.Forms.TextBox()
        Me.tbNov = New System.Windows.Forms.TextBox()
        Me.tbOct = New System.Windows.Forms.TextBox()
        Me.tbSep = New System.Windows.Forms.TextBox()
        Me.tbAug = New System.Windows.Forms.TextBox()
        Me.tbJul = New System.Windows.Forms.TextBox()
        Me.tbDpt = New System.Windows.Forms.TextBox()
        Me.tbNum = New System.Windows.Forms.TextBox()
        Me.tbJun = New System.Windows.Forms.TextBox()
        Me.tbMay = New System.Windows.Forms.TextBox()
        Me.tbApr = New System.Windows.Forms.TextBox()
        Me.tbMar = New System.Windows.Forms.TextBox()
        Me.tbFeb = New System.Windows.Forms.TextBox()
        Me.tbJan = New System.Windows.Forms.TextBox()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.tbYear = New System.Windows.Forms.TextBox()
        Me.tbDesc = New System.Windows.Forms.TextBox()
        Me.cmdSave = New DevComponents.DotNetBar.ButtonX()
        Me.cmdExit = New DevComponents.DotNetBar.ButtonX()
        Me.GroupPanel1 = New DevComponents.DotNetBar.Controls.GroupPanel()
        Me.GroupPanel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'tbTotal
        '
        Me.tbTotal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbTotal.Location = New System.Drawing.Point(206, 322)
        Me.tbTotal.Name = "tbTotal"
        Me.tbTotal.Size = New System.Drawing.Size(134, 26)
        Me.tbTotal.TabIndex = 226
        Me.tbTotal.TabStop = False
        Me.tbTotal.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbDec
        '
        Me.tbDec.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbDec.Location = New System.Drawing.Point(303, 277)
        Me.tbDec.Name = "tbDec"
        Me.tbDec.Size = New System.Drawing.Size(100, 26)
        Me.tbDec.TabIndex = 225
        Me.tbDec.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbNov
        '
        Me.tbNov.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbNov.Location = New System.Drawing.Point(303, 246)
        Me.tbNov.Name = "tbNov"
        Me.tbNov.Size = New System.Drawing.Size(100, 26)
        Me.tbNov.TabIndex = 224
        Me.tbNov.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbOct
        '
        Me.tbOct.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbOct.Location = New System.Drawing.Point(303, 215)
        Me.tbOct.Name = "tbOct"
        Me.tbOct.Size = New System.Drawing.Size(100, 26)
        Me.tbOct.TabIndex = 223
        Me.tbOct.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbSep
        '
        Me.tbSep.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbSep.Location = New System.Drawing.Point(303, 184)
        Me.tbSep.Name = "tbSep"
        Me.tbSep.Size = New System.Drawing.Size(100, 26)
        Me.tbSep.TabIndex = 222
        Me.tbSep.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbAug
        '
        Me.tbAug.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbAug.Location = New System.Drawing.Point(303, 153)
        Me.tbAug.Name = "tbAug"
        Me.tbAug.Size = New System.Drawing.Size(100, 26)
        Me.tbAug.TabIndex = 221
        Me.tbAug.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbJul
        '
        Me.tbJul.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbJul.Location = New System.Drawing.Point(303, 122)
        Me.tbJul.Name = "tbJul"
        Me.tbJul.Size = New System.Drawing.Size(100, 26)
        Me.tbJul.TabIndex = 220
        Me.tbJul.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbDpt
        '
        Me.tbDpt.BackColor = System.Drawing.Color.White
        Me.tbDpt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbDpt.Location = New System.Drawing.Point(164, 54)
        Me.tbDpt.MaxLength = 3
        Me.tbDpt.Name = "tbDpt"
        Me.tbDpt.ReadOnly = True
        Me.tbDpt.Size = New System.Drawing.Size(47, 26)
        Me.tbDpt.TabIndex = 204
        '
        'tbNum
        '
        Me.tbNum.BackColor = System.Drawing.Color.White
        Me.tbNum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbNum.Location = New System.Drawing.Point(96, 54)
        Me.tbNum.MaxLength = 4
        Me.tbNum.Name = "tbNum"
        Me.tbNum.ReadOnly = True
        Me.tbNum.Size = New System.Drawing.Size(65, 26)
        Me.tbNum.TabIndex = 203
        '
        'tbJun
        '
        Me.tbJun.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbJun.Location = New System.Drawing.Point(96, 278)
        Me.tbJun.Name = "tbJun"
        Me.tbJun.Size = New System.Drawing.Size(115, 26)
        Me.tbJun.TabIndex = 219
        Me.tbJun.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbMay
        '
        Me.tbMay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbMay.Location = New System.Drawing.Point(96, 247)
        Me.tbMay.Name = "tbMay"
        Me.tbMay.Size = New System.Drawing.Size(115, 26)
        Me.tbMay.TabIndex = 218
        Me.tbMay.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbApr
        '
        Me.tbApr.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbApr.Location = New System.Drawing.Point(96, 216)
        Me.tbApr.Name = "tbApr"
        Me.tbApr.Size = New System.Drawing.Size(115, 26)
        Me.tbApr.TabIndex = 217
        Me.tbApr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbMar
        '
        Me.tbMar.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbMar.Location = New System.Drawing.Point(96, 185)
        Me.tbMar.Name = "tbMar"
        Me.tbMar.Size = New System.Drawing.Size(115, 26)
        Me.tbMar.TabIndex = 216
        Me.tbMar.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbFeb
        '
        Me.tbFeb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbFeb.Location = New System.Drawing.Point(96, 154)
        Me.tbFeb.Name = "tbFeb"
        Me.tbFeb.Size = New System.Drawing.Size(115, 26)
        Me.tbFeb.TabIndex = 215
        Me.tbFeb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'tbJan
        '
        Me.tbJan.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbJan.Location = New System.Drawing.Point(96, 123)
        Me.tbJan.Name = "tbJan"
        Me.tbJan.Size = New System.Drawing.Size(115, 26)
        Me.tbJan.TabIndex = 214
        Me.tbJan.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Label16
        '
        Me.Label16.AutoSize = True
        Me.Label16.BackColor = System.Drawing.Color.Transparent
        Me.Label16.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label16.Location = New System.Drawing.Point(158, 303)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(38, 18)
        Me.Label16.TabIndex = 213
        Me.Label16.Text = "Total"
        '
        'Label15
        '
        Me.Label15.AutoSize = True
        Me.Label15.BackColor = System.Drawing.Color.Transparent
        Me.Label15.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label15.Location = New System.Drawing.Point(254, 253)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(31, 18)
        Me.Label15.TabIndex = 212
        Me.Label15.Text = "Dec"
        '
        'Label14
        '
        Me.Label14.AutoSize = True
        Me.Label14.BackColor = System.Drawing.Color.Transparent
        Me.Label14.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label14.Location = New System.Drawing.Point(254, 224)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(33, 18)
        Me.Label14.TabIndex = 211
        Me.Label14.Text = "Nov"
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.BackColor = System.Drawing.Color.Transparent
        Me.Label13.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label13.Location = New System.Drawing.Point(254, 195)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(29, 18)
        Me.Label13.TabIndex = 210
        Me.Label13.Text = "Oct"
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.BackColor = System.Drawing.Color.Transparent
        Me.Label12.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label12.Location = New System.Drawing.Point(254, 163)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(31, 18)
        Me.Label12.TabIndex = 209
        Me.Label12.Text = "Sep"
        '
        'Label11
        '
        Me.Label11.AutoSize = True
        Me.Label11.BackColor = System.Drawing.Color.Transparent
        Me.Label11.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label11.Location = New System.Drawing.Point(254, 131)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(32, 18)
        Me.Label11.TabIndex = 207
        Me.Label11.Text = "Aug"
        '
        'Label10
        '
        Me.Label10.AutoSize = True
        Me.Label10.BackColor = System.Drawing.Color.Transparent
        Me.Label10.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label10.Location = New System.Drawing.Point(254, 101)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(25, 18)
        Me.Label10.TabIndex = 206
        Me.Label10.Text = "Jul"
        '
        'Label9
        '
        Me.Label9.AutoSize = True
        Me.Label9.BackColor = System.Drawing.Color.Transparent
        Me.Label9.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label9.Location = New System.Drawing.Point(44, 261)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(29, 18)
        Me.Label9.TabIndex = 205
        Me.Label9.Text = "Jun"
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.BackColor = System.Drawing.Color.Transparent
        Me.Label8.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label8.Location = New System.Drawing.Point(44, 231)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(34, 18)
        Me.Label8.TabIndex = 202
        Me.Label8.Text = "May"
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.BackColor = System.Drawing.Color.Transparent
        Me.Label7.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label7.Location = New System.Drawing.Point(44, 200)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(30, 18)
        Me.Label7.TabIndex = 201
        Me.Label7.Text = "Apr"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.BackColor = System.Drawing.Color.Transparent
        Me.Label6.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label6.Location = New System.Drawing.Point(44, 164)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(32, 18)
        Me.Label6.TabIndex = 200
        Me.Label6.Text = "Mar"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.BackColor = System.Drawing.Color.Transparent
        Me.Label5.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label5.Location = New System.Drawing.Point(44, 134)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(31, 18)
        Me.Label5.TabIndex = 199
        Me.Label5.Text = "Feb"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.BackColor = System.Drawing.Color.Transparent
        Me.Label4.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label4.Location = New System.Drawing.Point(44, 99)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(28, 18)
        Me.Label4.TabIndex = 198
        Me.Label4.Text = "Jan"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.BackColor = System.Drawing.Color.Transparent
        Me.Label3.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label3.Location = New System.Drawing.Point(281, 10)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(34, 18)
        Me.Label3.TabIndex = 197
        Me.Label3.Text = "Year"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.BackColor = System.Drawing.Color.Transparent
        Me.Label2.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label2.Location = New System.Drawing.Point(9, 62)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(78, 18)
        Me.Label2.TabIndex = 196
        Me.Label2.Text = "Description"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.BackColor = System.Drawing.Color.Transparent
        Me.Label1.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label1.Location = New System.Drawing.Point(91, 10)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 18)
        Me.Label1.TabIndex = 195
        Me.Label1.Text = "A/C No:"
        '
        'tbYear
        '
        Me.tbYear.BackColor = System.Drawing.Color.White
        Me.tbYear.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbYear.Location = New System.Drawing.Point(280, 54)
        Me.tbYear.MaxLength = 4
        Me.tbYear.Name = "tbYear"
        Me.tbYear.ReadOnly = True
        Me.tbYear.Size = New System.Drawing.Size(123, 26)
        Me.tbYear.TabIndex = 229
        '
        'tbDesc
        '
        Me.tbDesc.BackColor = System.Drawing.Color.White
        Me.tbDesc.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbDesc.ForeColor = System.Drawing.SystemColors.Window
        Me.tbDesc.Location = New System.Drawing.Point(96, 86)
        Me.tbDesc.MaxLength = 200
        Me.tbDesc.Name = "tbDesc"
        Me.tbDesc.ReadOnly = True
        Me.tbDesc.Size = New System.Drawing.Size(307, 26)
        Me.tbDesc.TabIndex = 230
        '
        'cmdSave
        '
        Me.cmdSave.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
        Me.cmdSave.Font = New System.Drawing.Font("Calibri", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdSave.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
        Me.cmdSave.Location = New System.Drawing.Point(234, 380)
        Me.cmdSave.Name = "cmdSave"
        Me.cmdSave.Size = New System.Drawing.Size(82, 27)
        Me.cmdSave.TabIndex = 267
        Me.cmdSave.Text = "Save"
        '
        'cmdExit
        '
        Me.cmdExit.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
        Me.cmdExit.Font = New System.Drawing.Font("Calibri", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdExit.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
        Me.cmdExit.Location = New System.Drawing.Point(321, 380)
        Me.cmdExit.Name = "cmdExit"
        Me.cmdExit.Size = New System.Drawing.Size(82, 27)
        Me.cmdExit.TabIndex = 266
        Me.cmdExit.Text = "Exit"
        '
        'GroupPanel1
        '
        Me.GroupPanel1.CanvasColor = System.Drawing.SystemColors.Control
        Me.GroupPanel1.ColorSchemeStyle = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
        Me.GroupPanel1.Controls.Add(Me.Label15)
        Me.GroupPanel1.Controls.Add(Me.Label1)
        Me.GroupPanel1.Controls.Add(Me.Label2)
        Me.GroupPanel1.Controls.Add(Me.Label3)
        Me.GroupPanel1.Controls.Add(Me.Label4)
        Me.GroupPanel1.Controls.Add(Me.Label5)
        Me.GroupPanel1.Controls.Add(Me.Label6)
        Me.GroupPanel1.Controls.Add(Me.Label7)
        Me.GroupPanel1.Controls.Add(Me.Label8)
        Me.GroupPanel1.Controls.Add(Me.Label9)
        Me.GroupPanel1.Controls.Add(Me.Label10)
        Me.GroupPanel1.Controls.Add(Me.Label11)
        Me.GroupPanel1.Controls.Add(Me.Label12)
        Me.GroupPanel1.Controls.Add(Me.Label13)
        Me.GroupPanel1.Controls.Add(Me.Label14)
        Me.GroupPanel1.Controls.Add(Me.Label16)
        Me.GroupPanel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupPanel1.Location = New System.Drawing.Point(0, 0)
        Me.GroupPanel1.Name = "GroupPanel1"
        Me.GroupPanel1.Size = New System.Drawing.Size(440, 432)
        '
        '
        '
        Me.GroupPanel1.Style.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
        Me.GroupPanel1.Style.BackColorGradientAngle = 90
        Me.GroupPanel1.Style.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
        Me.GroupPanel1.Style.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
        Me.GroupPanel1.Style.BorderBottomWidth = 1
        Me.GroupPanel1.Style.BorderColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBorder
        Me.GroupPanel1.Style.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
        Me.GroupPanel1.Style.BorderLeftWidth = 1
        Me.GroupPanel1.Style.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
        Me.GroupPanel1.Style.BorderRightWidth = 1
        Me.GroupPanel1.Style.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
        Me.GroupPanel1.Style.BorderTopWidth = 1
        Me.GroupPanel1.Style.CornerDiameter = 4
        Me.GroupPanel1.Style.CornerType = DevComponents.DotNetBar.eCornerType.Rounded
        Me.GroupPanel1.Style.TextAlignment = DevComponents.DotNetBar.eStyleTextAlignment.Center
        Me.GroupPanel1.Style.TextColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelText
        Me.GroupPanel1.Style.TextLineAlignment = DevComponents.DotNetBar.eStyleTextAlignment.Near
        Me.GroupPanel1.TabIndex = 268
        Me.GroupPanel1.Text = "Budget - Edit"
        '
        'frmBudgetsEdit
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(7, 19)
        Me.BackColor = System.Drawing.SystemColors.ActiveCaption
        Me.ClientSize = New System.Drawing.Size(440, 432)
        Me.ControlBox = False
        Me.Controls.Add(Me.cmdSave)
        Me.Controls.Add(Me.cmdExit)
        Me.Controls.Add(Me.tbDesc)
        Me.Controls.Add(Me.tbYear)
        Me.Controls.Add(Me.tbTotal)
        Me.Controls.Add(Me.tbDec)
        Me.Controls.Add(Me.tbNov)
        Me.Controls.Add(Me.tbOct)
        Me.Controls.Add(Me.tbSep)
        Me.Controls.Add(Me.tbAug)
        Me.Controls.Add(Me.tbJul)
        Me.Controls.Add(Me.tbDpt)
        Me.Controls.Add(Me.tbNum)
        Me.Controls.Add(Me.tbJun)
        Me.Controls.Add(Me.tbMay)
        Me.Controls.Add(Me.tbApr)
        Me.Controls.Add(Me.tbMar)
        Me.Controls.Add(Me.tbFeb)
        Me.Controls.Add(Me.tbJan)
        Me.Controls.Add(Me.GroupPanel1)
        Me.Font = New System.Drawing.Font("Calibri", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Location = New System.Drawing.Point(90, 5)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmBudgetsEdit"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.GroupPanel1.ResumeLayout(False)
        Me.GroupPanel1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region
    Private Sub Budgets_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim GLdata As New GLdataLogic
        Dim ds2 As DataSet
        ds2 = GLdata.GetBudgetDetails(CompanyID, EditBudID)
        tbNum.Text = ds2.Tables(0).Rows(0).Item("AccountNumber")
        tbDpt.Text = ds2.Tables(0).Rows(0).Item("AccountCenter")
        tbDesc.Text = ds2.Tables(0).Rows(0).Item("AccountName")
        tbYear.Text = ds2.Tables(0).Rows(0).Item("YearCode")
        tbJan.Text = ds2.Tables(0).Rows(0).Item("JanAmount")
        tbFeb.Text = ds2.Tables(0).Rows(0).Item("FebAmount")
        tbMar.Text = ds2.Tables(0).Rows(0).Item("MarAmount")
        tbApr.Text = ds2.Tables(0).Rows(0).Item("AprAmount")
        tbMay.Text = ds2.Tables(0).Rows(0).Item("MayAmount")
        tbJun.Text = ds2.Tables(0).Rows(0).Item("JunAmount")
        tbJul.Text = ds2.Tables(0).Rows(0).Item("JulAmount")
        tbAug.Text = ds2.Tables(0).Rows(0).Item("AugAmount")
        tbSep.Text = ds2.Tables(0).Rows(0).Item("SepAmount")
        tbOct.Text = ds2.Tables(0).Rows(0).Item("OctAmount")
        tbNov.Text = ds2.Tables(0).Rows(0).Item("NovAmount")
        tbDec.Text = ds2.Tables(0).Rows(0).Item("DecAmount")
        GLdata = Nothing
        CalcTotal()
    End Sub
    Private Sub CalcTotal()
        Dim JanA, FebA, MarA, AprA, MayA, JunA, JulA, AugA, SepA, OctA, NovA, DecA, TotA As Double
        If IsNumeric(tbJan.Text) Then
            JanA = CDbl(tbJan.Text)
        End If
        If IsNumeric(tbFeb.Text) Then
            FebA = CDbl(tbFeb.Text)
        End If
        If IsNumeric(tbMar.Text) Then
            MarA = CDbl(tbMar.Text)
        End If
        If IsNumeric(tbApr.Text) Then
            AprA = CDbl(tbApr.Text)
        End If
        If IsNumeric(tbMay.Text) Then
            MayA = CDbl(tbMay.Text)
        End If
        If IsNumeric(tbJun.Text) Then
            JunA = CDbl(tbJun.Text)
        End If
        If IsNumeric(tbJul.Text) Then
            JulA = CDbl(tbJul.Text)
        End If
        If IsNumeric(tbAug.Text) Then
            AugA = CDbl(tbAug.Text)
        End If
        If IsNumeric(tbSep.Text) Then
            SepA = CDbl(tbSep.Text)
        End If
        If IsNumeric(tbOct.Text) Then
            OctA = CDbl(tbOct.Text)
        End If
        If IsNumeric(tbNov.Text) Then
            NovA = CDbl(tbNov.Text)
        End If
        If IsNumeric(tbDec.Text) Then
            DecA = CDbl(tbDec.Text)
        End If
        TotA = JanA + FebA + MarA + AprA + MayA + JunA + JulA + AugA + SepA + OctA + NovA + DecA
        tbTotal.Text = TotA.ToString
    End Sub
    Private Sub tbJan_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbJan.Validated
        CalcTotal()
    End Sub
    Private Sub tbFeb_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbFeb.Validated
        CalcTotal()
    End Sub
    Private Sub tbMar_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbMar.Validated
        CalcTotal()
    End Sub
    Private Sub tbApr_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbApr.Validated
        CalcTotal()
    End Sub
    Private Sub tbMay_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbMay.Validated
        CalcTotal()
    End Sub
    Private Sub tbJun_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbJun.Validated
        CalcTotal()
    End Sub
    Private Sub tbJul_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbJul.Validated
        CalcTotal()
    End Sub
    Private Sub tbAug_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbAug.Validated
        CalcTotal()
    End Sub
    Private Sub tbSep_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbSep.Validated
        CalcTotal()
    End Sub
    Private Sub tbOct_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbOct.Validated
        CalcTotal()
    End Sub
    Private Sub tbNov_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbNov.Validated
        CalcTotal()
    End Sub
    Private Sub tbDec_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbDec.Validated
        CalcTotal()
    End Sub
    Private Sub tbTotal_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbTotal.Validated
        Dim tbEmpty As Boolean
        tbEmpty = False
        If tbJan.Text = "" And tbFeb.Text = "" And tbMar.Text = "" And tbApr.Text = "" And tbMay.Text = "" And tbJun.Text = "" Then
            tbEmpty = True
        End If
        If tbEmpty = True And tbJan.Text = "" And tbFeb.Text = "" And tbMar.Text = "" And tbApr.Text = "" And tbMay.Text = "" And tbJun.Text = "" Then
            tbEmpty = True
        Else
            tbEmpty = False
        End If
        If tbEmpty = True Then
            Dim TotAmt As Double
            If IsNumeric(tbTotal.Text) Then
                TotAmt = CDbl(tbTotal.Text)
                Dim MonthlyAmt As Double
                MonthlyAmt = TotAmt / 12
                tbJan.Text = MonthlyAmt.ToString
                tbFeb.Text = MonthlyAmt.ToString
                tbMar.Text = MonthlyAmt.ToString
                tbApr.Text = MonthlyAmt.ToString
                tbMay.Text = MonthlyAmt.ToString
                tbJun.Text = MonthlyAmt.ToString
                tbJul.Text = MonthlyAmt.ToString
                tbAug.Text = MonthlyAmt.ToString
                tbSep.Text = MonthlyAmt.ToString
                tbOct.Text = MonthlyAmt.ToString
                tbNov.Text = MonthlyAmt.ToString
                tbDec.Text = MonthlyAmt.ToString
            End If
        End If
    End Sub

    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        Dim GLdata As New GLdataLogic
        Dim Response As String
        Response = GLdata.UpdateBudgetDetails(CompanyID, EditBudID, _
                    tbJan.Text, tbFeb.Text, tbMar.Text, tbApr.Text, tbMay.Text, tbJun.Text, _
                    tbJul.Text, tbAug.Text, tbSep.Text, tbOct.Text, tbNov.Text, tbDec.Text)
        GLdata = Nothing
        If Response = "OK" Then
            MsgBox("Budget updated", MsgBoxStyle.Information, "Inventory Manager")
        Else
            MsgBox("Unable to satisfy your request. Try later", MsgBoxStyle.Critical, "Inventory Manager")
        End If
    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Me.Hide()
    End Sub
End Class
